home *** CD-ROM | disk | FTP | other *** search
/ Disc to the Future 2 / Disc to the Future Part II Programmer's Reference (Wayzata Technology)(6013)(1992).bin / MAC / MPW_TOOL / TOOLS / TOOLS_WI / ICON_8 / ICONX_FO / RPROTO.H < prev    next >
Text File  |  1990-04-01  |  10KB  |  276 lines
  1. /*
  2.  * rproto.h -- prototypes for run-time functions.
  3.  */
  4.  
  5. #ifdef PreProcess
  6. /* undefine(`shift') undefine(`len') undefine(`syscmd') undefine(`index') */
  7. #endif                    /* PreProcess */
  8.  
  9. int    bfunc        Params((noargs));
  10. int    coswitch    Params((word *old, word *new, int first));
  11. int    dup2        Params((int h1, int h2));
  12. char    *ecvt        Params((double value, int count, int *dec, int* sign));
  13.  
  14. #if IntBits == 16
  15. novalue    llqsort        Params((char *base, int nel, int width, int (*cmp)()));
  16. #endif                    /* IntBits == 16 */
  17.  
  18. int    printable    Params((int c));
  19.  
  20. #define Fargs dptr cargp
  21.  
  22. #ifdef PreProcess
  23. /* define(FncDef,int X$1     Params((Fargs));) */
  24. /* define(FncDefV,int X$1     Params((int nargs,Fargs));) */
  25. /* include(../h/fdefs.h) /* */
  26. /* undefine(`FncDef') */
  27. /* undefine(`FncDefV') */
  28. /* */
  29. /* define(OpDef,int O$1     Params((Fargs));) */
  30. /* include(../h/odefs.h) /* */
  31. /* undefine(`OpDef') */
  32. /* */
  33. #else                    /* PreProcess */
  34. #define FncDef(p,n) int Cat(X,p)     Params((Fargs));
  35. #define FncDefV(p) int Cat(X,p)     Params((int nargs,Fargs));
  36. #include "::h:fdefs.h"
  37. #undef FncDef
  38. #undef FncDefV
  39. #define OpDef(p,n,s) int Cat(O,p)     Params((Fargs));
  40. #include "::h:odefs.h"
  41. #undef OpDef
  42. #endif                    /* PreProcess */
  43.  
  44. int    Ahgener            Params((dptr cargp));
  45.  
  46. novalue    addmem
  47.    Params((struct b_set *ps,struct b_selem *pe, union block **pl));
  48. novalue    adjust            Params((char *source,char *dest));
  49. struct    astkblk *alcactiv    Params((noargs));
  50. struct    b_coexpr *alccoexp    Params((noargs));
  51. struct    b_cset *alccset        Params((noargs));
  52. struct    b_external *alcextrnl    Params((int n));
  53. struct    b_file *alcfile        Params((FILE *fd,int status,dptr name));
  54. union    block *alchash        Params((int tcode));
  55. struct    b_list *alclist        Params((uword size));
  56. struct    b_lelem *alclstb    Params((uword nslots,uword first,uword nused));
  57. struct    b_real *alcreal        Params((double val));
  58. struct    b_record *alcrecd    Params((int nflds,union block **recptr));
  59. struct    b_refresh *alcrefresh    Params((word *entryx,int na,int nl));
  60. struct    b_slots *alcsegment    Params((word nslots));
  61. struct    b_selem *alcselem    Params((dptr mbr,uword hn));
  62. char    *alcstr            Params((char *s,word slen));
  63. struct    b_tvsubs *alcsubs    Params((word len,word pos,dptr var));
  64. struct    b_telem *alctelem    Params((noargs));
  65. struct    b_tvtbl *alctvtbl    Params((dptr tbl,dptr ref,uword hashnum));
  66. int    anycmp            Params((dptr dp1,dptr dp2));
  67. novalue    atrace            Params((dptr sptr));
  68. int    blkreq            Params((uword bytes));
  69. int    Obscan            Params((int nargs,Fargs));
  70. novalue    c_exit            Params((int i));
  71. novalue    coacttrace
  72.    Params((struct b_coexpr *ccp, struct b_coexpr *ncp));
  73. novalue    cofailtrace
  74.    Params((struct b_coexpr *ccp, struct b_coexpr *ncp));
  75. novalue    cofree            Params((noargs));
  76. novalue    collect            Params((int region));
  77. novalue    compact            Params((char *source));
  78. novalue    corettrace
  79.    Params((struct b_coexpr *ccp, struct b_coexpr *ncp));
  80. int    cplist            Params((dptr dp1,dptr dp2,word i,word j));
  81. int    cpset            Params((dptr dp1,dptr dp2,word size));
  82. int    Ocreate            Params((word *entryp,Fargs));
  83. int    csetcmp            Params((unsigned int *cs1,unsigned int *cs2));
  84. novalue    ctrace            Params((dptr sptr,int nargs,dptr arg));
  85. int    cvcset            Params((dptr dp,int * *cs,int *csbuf));
  86. int    cvint            Params((dptr dp));
  87. int    cvnum            Params((dptr dp));
  88. word    cvpos            Params((long pos,long len));
  89. int    cvreal            Params((dptr dp));
  90. int    cvstr            Params((dptr dp,char *sbuf));
  91. novalue    datainit        Params((noargs));
  92. int    defcset            Params((dptr dp,int * *cp,int *buf,int *def));
  93. int    deffile            Params((dptr dp,dptr def));
  94. int    defint            Params((dptr dp,long *lp,word def));
  95. int    defshort        Params((dptr dp,int def));
  96. int    defstr            Params((dptr dp,char *buf,dptr def));
  97. int    deref            Params((dptr dp));
  98. int    doasgn            Params((dptr dp1,dptr dp2));
  99. int    doimage            Params((int c,int q));
  100.  
  101. #ifdef DeBugIconx
  102. novalue    blkdump            Params((noargs));
  103. novalue    descr            Params((dptr dp));
  104. novalue    dumpact            Params((struct b_coexpr *cw));
  105. #endif                    /* DeBugIconx */
  106.  
  107. novalue    env_int
  108.    Params((char *name,word *variable,int non_neg, uword limit));
  109. novalue    envset            Params((noargs));
  110. int    equiv            Params((dptr dp1,dptr dp2));
  111. int    err            Params((noargs));
  112. novalue    error            Params((char *s));
  113. int    Oescan            Params((int nargs,Fargs));
  114.  
  115. #ifdef ExternalFunctions
  116. dptr    extcall            Params((dptr dargv, int argc, int *ip));
  117. #endif                    /* ExternalFunctions */
  118.  
  119. novalue    fatalerr        Params((int n,dptr v));
  120. int    Ofield            Params((int nargs,Fargs));
  121. int    findipc            Params((int line));
  122. char    *findfile        Params((word *ipc));
  123. int    findline        Params((word *ipc));
  124. novalue    fixtrap            Params((noargs));
  125. novalue    fpetrap            Params((noargs));
  126. novalue    failtrace        Params((dptr sptr));
  127. int    getimage        Params((dptr dp1, dptr dp2));
  128. int    getname            Params((dptr dp1, dptr dp2));
  129. int    getstrg            Params((char *buf,int maxi,FILE *fd));
  130. int    getvar            Params((char *s, dptr dp));
  131. uword    hash            Params((dptr dp));
  132. union block **hchain        Params((union block *pb,uword hn));
  133. novalue    hgrow            Params((dptr dp));
  134. union block *hmake        Params((int tcode,word nslots,word nelem));
  135. novalue    hshrink            Params((dptr dp));
  136. char    *icon_gcvt        Params((double number,int ndigit,char *buf));
  137. novalue    iconhost        Params((char *hostname));
  138. novalue    icon_init        Params((char *name));
  139. dptr    icon_call        Params((char *s, int argc, dptr dp));
  140. novalue    icon_setup        Params((int argc, char **argv, int *ip));
  141. novalue    initalloc        Params((word codesize));
  142. novalue    inttrap            Params((noargs));
  143.  
  144. int    interp            Params((int fsig,dptr cargp));
  145.  
  146. int    invoke            Params((int nargs,dptr  *cargp,int *n));
  147. long    ipow            Params((long n1,long n2));
  148. int    keyref            Params((dptr bp, dptr dp));
  149. int    Okeywd            Params((int nargs,Fargs));
  150. int    lexcmp            Params((dptr dp1,dptr dp2));
  151. int    Olimit            Params((int nargs,Fargs));
  152. int    Ollist            Params((int nargs,Fargs));
  153. word    longread        Params((char *s,int width,long len,FILE *fname));
  154. int    makereal        Params((double r,dptr dp));
  155. novalue    markblock        Params((dptr dp));
  156. novalue    markptr            Params((union block **));
  157. union block **memb
  158.    Params((union block *pb,dptr x,uword hn, int *res));
  159. int    Omkrec            Params((int nargs,Fargs));
  160. novalue    mksubs
  161.    Params((dptr var,dptr val,word i,word j, dptr result));
  162. novalue    mvc            Params((uword n,char *src,char *dest));
  163. int    numcmp            Params((dptr dp1,dptr dp2,dptr dp3));
  164. int    order            Params((dptr dp));
  165. novalue    outimage        Params((FILE *f,dptr dp,int restrict));
  166. struct    b_coexpr *popact    Params((struct b_coexpr *ce));
  167. novalue    postqual        Params((dptr dp));
  168. word    prescan            Params((dptr d));
  169. int    pushact
  170.    Params((struct b_coexpr *ce, struct b_coexpr *actvtr));
  171. int    putpos            Params((dptr dp,struct b_tvkywd *bp));
  172. int    putstr            Params((FILE *f,dptr d));
  173. int    putsub            Params((dptr dp,struct b_tvkywd *bp));
  174. int    putint            Params((dptr dp,struct b_tvkywd *bp));
  175. int    qlcmp            Params((dptr  *q1,dptr  *q2));
  176. int    qtos            Params((dptr dp,char *sbuf));
  177. novalue    resolve            Params((noargs));
  178. int    rtos            Params((double n,dptr dp,char *s));
  179. novalue    rtrace            Params((dptr sptr,dptr rval));
  180. novalue    runerr            Params((int n,dptr v));
  181. novalue    scollect        Params((word extra));
  182. novalue    segvtrap        Params((noargs));
  183. novalue    stkdump            Params((int));
  184. novalue    strace            Params((dptr sptr,dptr rval));
  185. int    strprc            Params((dptr dp,word n));
  186. int    strreq            Params((uword n));
  187. novalue    sweep            Params((struct b_coexpr *ce));
  188. novalue    syserr            Params((char *s));
  189. struct    b_coexpr *topact    Params((struct b_coexpr *ce));
  190. novalue    ttrace            Params((noargs));
  191. novalue    xdisp
  192.    Params((struct pf_marker *fp,dptr dp,int count, FILE *f));
  193. novalue    xtrace
  194.    Params((struct b_proc *bp,word nargs,dptr arg, int pline,char *pfile));
  195.  
  196. #ifdef MemMon
  197.  
  198. novalue    MMInit            Params((char *name));
  199. novalue    MMShow            Params((dptr dp, char *s));
  200. novalue    MMTerm            Params((char *part1, char *part2));
  201.  
  202. novalue    MMAlc            Params((word len, int type));
  203. novalue    MMBGC            Params((int region));
  204. novalue    MMEGC            Params((noargs));
  205. novalue    MMMark            Params((char *block, int type));
  206. novalue    MMStat            Params((char *a, word n, int c));
  207. novalue    MMStr            Params((word slen));
  208. novalue    MMSMark            Params((char *saddr, word slen));
  209. #endif                    /* MemMon */
  210.  
  211.  
  212. #if !(MACINTOSH && MPW)
  213. double pow();            /* prototype problem */
  214. #endif                    /* !(MACINTOSH && MPW) */
  215.  
  216. #ifdef LargeInts
  217. struct    b_bignum *alcbignum    Params((word n));
  218. word    add            Params((word a, word b));
  219. word    sub            Params((word a, word b));
  220. word    mul            Params((word a, word b));
  221. word    neg            Params((word a));
  222. word    bigradix        Params((int sign, int r, char *s, dptr dx));
  223. double    bigtoreal        Params((dptr da));
  224. int    realtobig        Params((dptr da, dptr dx));
  225. int    bigtos            Params((dptr da, dptr dx));
  226. novalue    bigprint        Params((FILE *f, dptr da));
  227. int    cpbignum        Params((dptr da, dptr db));
  228. int    bigadd            Params((dptr da, dptr db, dptr dx));
  229. int    bigsub            Params((dptr da, dptr db, dptr dx));
  230. int    bigmul            Params((dptr da, dptr db, dptr dx));
  231. int    bigdiv            Params((dptr da, dptr db, dptr dx));
  232. int    bigmod            Params((dptr da, dptr db, dptr dx));
  233. int    bigneg            Params((dptr da, dptr dx));
  234. int    bigpow            Params((dptr da, dptr db, dptr dx));
  235. int    bigand            Params((dptr da, dptr db, dptr dx));
  236. int    bigor            Params((dptr da, dptr db, dptr dx));
  237. int    bigxor            Params((dptr da, dptr db, dptr dx));
  238. int    bigshift        Params((dptr da, dptr db, dptr dx));
  239. word    bigcmp            Params((dptr da, dptr db));
  240. int    bigrand            Params((dptr da, dptr dx));
  241. #endif                    /* LargeInts */
  242.  
  243. /*
  244.  * Temprary fix
  245.  */
  246.  
  247. #if ATARI_ST
  248. char    *brk            Params((char *addr));
  249. char    *sbrk            Params((int incr));
  250. #endif                                  /* ATARI_ST */
  251.  
  252. #if MACINTOSH
  253. #if MPW
  254. char    *brk            Params((char *addr));
  255. char    *sbrk            Params((int incr));
  256. novalue    free            Params((char* addr));
  257. #endif                    /* MPW */
  258. #endif                    /* MACINTOSH */
  259.  
  260. #if MSDOS
  261. #if LATTICE
  262. char    *sbrk            Params((int incr));
  263. #endif                                  /* LATTICE */
  264. #endif                                  /* MSDOS */
  265.  
  266. #if UNIX || VMS
  267. char    *brk            Params((char *addr));
  268. char    *sbrk            Params((int incr));
  269. FILE    *popen            Params((char * command, char *type));
  270. #endif                                  /* UNIX || VMS */
  271.  
  272. #ifdef EvalTrace
  273. novalue    TRInit            Params((char *name));
  274. novalue    TRShow            Params((dptr dp, char *s));
  275. #endif                    /* EvalTrace */
  276.